home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / CHEKMATE.ZIP / CHeKMaTe / events.ini < prev    next >
INI File  |  1997-03-12  |  15KB  |  411 lines
  1. [Events]
  2. n0=1:ON CTCP:ping* { echo 5 -a 14PING on $nick }
  3. n1=1:ON CTCPREPLY:ping* { if ($parm2 == $null) halt | %pt = $ctime - $parm2 | if (%pt <= 0) echo %c -a [14 $nick PING reply] 1 0 sec | if (%pt > 0) echo %c -a [ 1 $nick 14PING reply ] 1 $duration(%pt) | halt } 
  4. n2=1:ON CTCPREPLY:version* { echo %c -a $chr(91) $+ 14 $+ %c2 $+ $nick $+ 14 $parm1 $+ $chr(93) 14 $+ %c2 $+ $parm2* $+ 14 | halt }
  5. n3=@1:ON TOPIC:%hchan { if (%htopic == on && $nick != $me) { topic $chan %holdtopic | raw -q notice $nick :Please do not change the topic for now. Thanks. } | :end }
  6. n4===================================
  7. n5=#seen disabled
  8. n6=1:ON PART:# { if (([ isin $nick) || (] isin $nick)) halt | writeini $mircdirnames.txt $nick seen $ctime }
  9. n7=1:ON QUIT { if (([ isin $nick) || (] isin $nick)) halt | writeini $mircdirnames.txt $nick seen $ctime }
  10. n8=1:ON TEXT:seen*:# { if ($parm2 == $null) halt | if $parm2 iswm $me { msg $chan $nick $+ : Yeah, whenever I look in a mirror... | halt } | if ($nick == $parm2) { msg $chan $nick $+ , look in the mirror, or is that too scary? | halt } | if $parm2 ison $chan { msg $chan $nick $+ : $parm2 is on the channel right now! | halt } | seen $chan $parm2* }
  11. n9=#seen end
  12. n10===================================
  13. n11=#away disabled
  14. n12=1:PAGE: {
  15. n13=  if (( %pager == ON ) && ( $away == $true )) {
  16. n14=    query Whileáyouáwereáout...
  17. n15=    echo Whileáyouáwereáout... 14 $+ $nick said:1 $parm2* $+ 14at [1 $+ $atime $+ 14]
  18. n16=    .notice $nick 14I received your page with message1 $+ $parm2* $+ 14at [1 $+ $atime $+ 14]
  19. n17=  }
  20. n18=  else {
  21. n19=    .notice $nick 14My pager is not 1ON 14[4CHK14]
  22. n20=  }
  23. n21=}
  24. n22=#away end
  25. n23===================================
  26. n24=#away disabled
  27. n25=1:ON TEXT:*:?: {
  28. n26=  if ( %pager == on ) {
  29. n27=    set %privnotice on
  30. n28=    .notice $nick 14I am away 1 $+ %awayreason $+ 14 1Pager14 is 14[4ON14] I have been gone for 14<1 $+ $duration(%away) $+ 14> 14[4CHK14]
  31. n29=    set %privnotice off
  32. n30=    /close -m $nick
  33. n31=    halt
  34. n32=  }
  35. n33=  if ( %pager == off ) {
  36. n34=    set %privnotice off
  37. n35=    .notice $nick 14I am away 1 $+ %awayreason $+ 14 1Pager14 is 14[4OFF14] I have been gone for 14<1 $+ $duration(%away) $+ 14> 14[4CHK14]
  38. n36=    set %privnotice on
  39. n37=    /close -m $nick
  40. n38=    halt
  41. n39=  }
  42. n40=}
  43. n41=1:ON ACTION:*:?: {
  44. n42=  if ( %pager == on ) {
  45. n43=    set %privnotice on
  46. n44=    .notice $nick 14I am away 1 $+ %awayreason $+ 14 1Pager14 is 14[4ON14] I have been gone for 14<1 $+ $duration(%away) $+ 14> 14[4CHK14]
  47. n45=    set %privnotice off
  48. n46=    /close -m $nick
  49. n47=    halt
  50. n48=  }
  51. n49=  if ( %pager == off ) {
  52. n50=    set %privnotice off
  53. n51=    .notice $nick 14I am away 1 $+ %awayreason $+ 14 1Pager14 is 14[4OFF14] I have been gone for 14<1 $+ $duration(%away) $+ 14> 14[4CHK14]
  54. n52=    set %privnotice on
  55. n53=    /close -m $nick
  56. n54=    halt
  57. n55=  }
  58. n56=}
  59. n57=#away end
  60. n58===================================
  61. n59=#chanflood disabled
  62. n60=1:ON TEXT:*:#: {
  63. n61=  .auser ChanFlood1 $wildsite
  64. n62=  .timer 1 5 .ruser ChanFlood1 $wildsite
  65. n63=  if (( $len($parms) > %maxchars ) && (%longmessage == on)) {
  66. n64=    set %length $len($parms)
  67. n65=    set %more %length - %maxchars
  68. n66=    if ( $me isop $chan ) lmflood
  69. n67=    unset %more
  70. n68=    unset %length
  71. n69=  }
  72. n70=  set % [ $+ [ repeat1 [ $+ [ $nick ] ] ] ] $parms
  73. n71=}
  74. n72=ChanFlood1:ON TEXT:*:#: {
  75. n73=  .auser ChanFlood2 $wildsite
  76. n74=  .timer 1 5 .ruser ChanFlood2 $wildsite
  77. n75=  if (( $len($parms) > %maxchars ) && (%longmessage == on)) {
  78. n76=    set %length $len($parms)
  79. n77=    set %more %length - %maxchars
  80. n78=    if ( $me isop $chan ) lmflood
  81. n79=    unset %more
  82. n80=    unset %length
  83. n81=  }
  84. n82=  set % [ $+ [ repeat2 [ $+ [ $nick ] ] ] ] $parms
  85. n83=  if ( % [ $+ [ repeat1 [ $+ [ $nick ] ] ] ] == % [ $+ [ repeat2 [ $+ [ $nick ] ] ] ] ) unset % [ $+ [ repeat1 [ $+ [ $nick ] ] ] ]
  86. n84=  else {
  87. n85=    unset % [ $+ [ repeat1 [ $+ [ $nick ] ] ] ]
  88. n86=    unset % [ $+ [ repeat2 [ $+ [ $nick ] ] ] ]
  89. n87=  }
  90. n88=}
  91. n89=ChanFlood2:ON TEXT:*:#: {
  92. n90=  .auser ChanFlood3 $wildsite
  93. n91=  .timer 1 5 .ruser ChanFlood3 $wildsite
  94. n92=  if (( $len($parms) > %maxchars ) && (%longmessage == on)) {
  95. n93=    set %length $len($parms)
  96. n94=    set %more %length - %maxchars
  97. n95=    if ( $me isop $chan ) lmflood
  98. n96=    unset %more
  99. n97=    unset %length
  100. n98=  }
  101. n99=  set % [ $+ [ repeat3 [ $+ [ $nick ] ] ] ] $parms
  102. n100=  if (( % [ $+ [ repeat2 [ $+ [ $nick ] ] ] ] == % [ $+ [ repeat3 [ $+ [ $nick ] ] ] ] ) && ( %kickrepeat == on )) {
  103. n101=    if ( $me isop $chan ) {
  104. n102=      /kick $chan $nick 10We heard you the first time. 14[4CHK14]
  105. n103=      ban -u20 $chan $nick 3
  106. n104=      onoff | .notice $nick Don't flood the channel... You have been banned for a while. 14[4CHK14]
  107. n105=    }
  108. n106=  }
  109. n107=  unset % [ $+ [ repeat2 [ $+ [ $nick ] ] ] ]
  110. n108=  unset % [ $+ [ repeat3 [ $+ [ $nick ] ] ] ]
  111. n109=}
  112. n110=ChanFlood3:ON TEXT:*:#: {
  113. n111=  .auser ChanFlood4 $wildsite
  114. n112=  .timer 1 5 .ruser ChanFlood4 $wildsite
  115. n113=  if (( $len($parms) > %maxchars ) && (%longmessage == on)) {
  116. n114=    set %length $len($parms)
  117. n115=    set %more %length - %maxchars
  118. n116=    if ( $me isop $chan ) lmflood
  119. n117=    unset %more
  120. n118=    unset %length
  121. n119=  }
  122. n120=}
  123. n121=ChanFlood4:ON TEXT:*:#: {
  124. n122=  .auser ChanFlood5 $wildsite
  125. n123=  .timer 1 5 .ruser ChanFlood5 $wildsite
  126. n124=  if (( $len($parms) > %maxchars ) && (%longmessage == on)) {
  127. n125=    set %length $len($parms)
  128. n126=    set %more %length - %maxchars
  129. n127=    if ( $me isop $chan ) lmflood
  130. n128=    unset %more
  131. n129=    unset %length
  132. n130=  }
  133. n131=}
  134. n132=ChanFlood5:ON TEXT:*:#: {
  135. n133=  .auser ChanFlood6 $wildsite
  136. n134=  .timer 1 5 .ruser ChanFlood6 $wildsite
  137. n135=  if (( $len($parms) > %maxchars ) && (%longmessage == on)) {
  138. n136=    set %length $len($parms)
  139. n137=    set %more %length - %maxchars
  140. n138=    if ( $me isop $chan ) lmflood
  141. n139=    unset %more
  142. n140=    unset %length
  143. n141=  }
  144. n142=}
  145. n143=ChanFlood6:ON TEXT:*:#: {
  146. n144=  .auser ChanFlood7 $wildsite
  147. n145=  .timer 1 5 .ruser ChanFlood7 $wildsite
  148. n146=  if (( $len($parms) > %maxchars ) && (%longmessage == on)) {
  149. n147=    set %length $len($parms)
  150. n148=    set %more %length - %maxchars
  151. n149=    if ( $me isop $chan ) lmflood
  152. n150=    unset %more
  153. n151=    unset %length
  154. n152=  }
  155. n153=}
  156. n154=ChanFlood7:ON TEXT:*:#: {
  157. n155=  if ( $me isop $chan ) { 
  158. n156=    /kick $chan $nick 10Channel Flood Detected. 20 sec BAN 14[4CHK14]
  159. n157=    #floodban disabled
  160. n158=    .notice $nick Don't flood the channel... You have been banned for a while.
  161. n159=    /ban -u20 $chan $nick 3
  162. n160=    #floodban end
  163. n161=  }
  164. n162=}
  165. n163=1:ON ACTION:*:#: {
  166. n164=  .auser ChanFlood1 $wildsite
  167. n165=  .timer 1 5 .ruser ChanFlood1 $wildsite
  168. n166=  if (( $len($parms) > %maxchars ) && (%longmessage == on)) {
  169. n167=    set %length $len($parms)
  170. n168=    set %more %length - %maxchars
  171. n169=    if ( $me isop $chan ) lmflood
  172. n170=    unset %more
  173. n171=    unset %length
  174. n172=  }
  175. n173=  set % [ $+ [ repeat1 [ $+ [ $nick ] ] ] ] $parms
  176. n174=}
  177. n175=ChanFlood1:ON ACTION:*:#: {
  178. n176=  .auser ChanFlood2 $wildsite
  179. n177=  .timer 1 5 .ruser ChanFlood2 $wildsite
  180. n178=  if (( $len($parms) > %maxchars ) && (%longmessage == on)) {
  181. n179=    set %length $len($parms)
  182. n180=    set %more %length - %maxchars
  183. n181=    if ( $me isop $chan ) lmflood 
  184. n182=    unset %more
  185. n183=    unset %length
  186. n184=  }
  187. n185=  set % [ $+ [ repeat2 [ $+ [ $nick ] ] ] ] $parms
  188. n186=  if ( % [ $+ [ repeat1 [ $+ [ $nick ] ] ] ] == % [ $+ [ repeat2 [ $+ [ $nick ] ] ] ] ) unset % [ $+ [ repeat1 [ $+ [ $nick ] ] ] ]
  189. n187=  else {
  190. n188=    unset % [ $+ [ repeat1 [ $+ [ $nick ] ] ] ]
  191. n189=    unset % [ $+ [ repeat2 [ $+ [ $nick ] ] ] ]
  192. n190=  }
  193. n191=}
  194. n192=ChanFlood2:ON ACTION:*:#: {
  195. n193=  .auser ChanFlood3 $wildsite
  196. n194=  .timer 1 5 .ruser ChanFlood3 $wildsite
  197. n195=  if (( $len($parms) > %maxchars ) && (%longmessage == on)) {
  198. n196=    set %length $len($parms)
  199. n197=    set %more %length - %maxchars
  200. n198=    if ( $me isop $chan ) lmflood
  201. n199=    unset %more
  202. n200=    unset %length
  203. n201=  }
  204. n202=  set % [ $+ [ repeat3 [ $+ [ $nick ] ] ] ] $parms
  205. n203=  if (( % [ $+ [ repeat2 [ $+ [ $nick ] ] ] ] == % [ $+ [ repeat3 [ $+ [ $nick ] ] ] ] ) && ( %kickrepeat == on )) {
  206. n204=    if ( $me isop $chan ) {
  207. n205=      /kick $chan $nick 10We heard you the first time. 14[4CHK14]
  208. n206=      ban -u20 $chan $nick 3
  209. n207=      onoff | .notice $nick Don't flood the channel... You have been banned for a while. 14[4CHK14]
  210. n208=    }
  211. n209=  }
  212. n210=  unset % [ $+ [ repeat2 [ $+ [ $nick ] ] ] ]
  213. n211=  unset % [ $+ [ repeat3 [ $+ [ $nick ] ] ] ]
  214. n212=}
  215. n213=ChanFlood3:ON ACTION:*:#: {
  216. n214=  .auser ChanFlood4 $wildsite
  217. n215=  .timer 1 5 .ruser ChanFlood4 $wildsite
  218. n216=  if (( $len($parms) > %maxchars ) && (%longmessage == on)) {
  219. n217=    set %length $len($parms)
  220. n218=    set %more %length - %maxchars
  221. n219=    if ( $me isop $chan ) lmflood
  222. n220=    unset %more
  223. n221=    unset %length
  224. n222=  }
  225. n223=}
  226. n224=ChanFlood4:ON ACTION:*:#: {
  227. n225=  .auser ChanFlood5 $wildsite
  228. n226=  .timer 1 5 .ruser ChanFlood5 $wildsite
  229. n227=  if (( $len($parms) > %maxchars ) && (%longmessage == on)) {
  230. n228=    set %length $len($parms)
  231. n229=    set %more %length - %maxchars
  232. n230=    if ( $me isop $chan ) lmflood
  233. n231=    unset %more
  234. n232=    unset %length
  235. n233=  }
  236. n234=}
  237. n235=ChanFlood5:ON ACTION:*:#: {
  238. n236=  .auser ChanFlood6 $wildsite
  239. n237=  .timer 1 5 .ruser ChanFlood6 $wildsite
  240. n238=  if (( $len($parms) > %maxchars ) && (%longmessage == on)) {
  241. n239=    set %length $len($parms)
  242. n240=    set %more %length - %maxchars
  243. n241=    if ( $me isop $chan ) lmflood
  244. n242=    unset %more
  245. n243=    unset %length
  246. n244=  }
  247. n245=}
  248. n246=ChanFlood6:ON ACTION:*:#: {
  249. n247=  .auser ChanFlood7 $wildsite
  250. n248=  .timer 1 5 .ruser ChanFlood7 $wildsite
  251. n249=  if (( $len($parms) > %maxchars ) && (%longmessage == on)) {
  252. n250=    set %length $len($parms)
  253. n251=    set %more %length - %maxchars
  254. n252=    if ( $me isop $chan ) lmflood
  255. n253=    unset %more
  256. n254=    unset %length
  257. n255=  }
  258. n256=}
  259. n257=ChanFlood7:ON ACTION:*:#: {
  260. n258=  if ( $nick isop $chan ) | halt )  
  261. n259=  if ( $me isop $chan ) {
  262. n260=    /kick $chan $nick 10Channel Flood Detected 14[4CHK14]
  263. n261=    #floodban disabled
  264. n262=    onoff | .notice $nick Don't flood the channel... You have been banned for a while. 14[4CHK14]
  265. n263=    /ban -u20 $chan $nick 3
  266. n264=    #floodban end
  267. n265=  }
  268. n266=}
  269. n267=#chanflood end
  270. n268===================================
  271. n269=#nickflood start
  272. n270=1:ON NICK: {
  273. n271=  .auser nick1 $wildsite
  274. n272=  .timer 1 5 .ruser nick1 $wildsite
  275. n273=}
  276. n274=nick1:ON NICK: {
  277. n275=  .auser nick1 $wildsite
  278. n276=  .timer 1 5 .ruser nick1 $wildsite
  279. n277=}
  280. n278=nick2:ON NICK: {
  281. n279=  .kick $chan $newnick 10Confused about your identity??? 14[4CHK14]
  282. n280=  #floodban disabled
  283. n281=  .ban -u20 $chan $newnick 3
  284. n282=  onoff | .notice $newnick Make up your mind on what you want to be called. 14[4CHK14]
  285. n283=  #floodban disabled
  286. n284=}
  287. n285=#nickflood end
  288. n286===================================
  289. n287=#floodprotect disabled
  290. n288=+1:ON TEXT:*:?: {
  291. n289=  .auser Flood1 $wildsite
  292. n290=  .timer 1 8 .ruser Flood1 $wildsite
  293. n291=}
  294. n292=Flood1:ON TEXT:*:?: {
  295. n293=  .auser Flood2 $wildsite
  296. n294=  .timer 1 8 .ruser Flood2 $wildsite
  297. n295=}
  298. n296=Flood2:ON TEXT:*:?: {
  299. n297=  .auser Flood3 $wildsite
  300. n298=  .timer 1 8 .ruser Flood3 $wildsite
  301. n299=}
  302. n300=Flood3:ON TEXT:*:?: {
  303. n301=  .auser Flood4 $wildsite
  304. n302=  .timer 1 8 .ruser Flood4 $wildsite
  305. n303=}
  306. n304=Flood4:ON TEXT:*:?: {
  307. n305=  .auser Flood5 *!*@ $+ $site
  308. n306=  .timer 1 8 .ruser Flood5 $wildsite
  309. n307=}
  310. n308=Flood5:ON TEXT:*:?: {
  311. n309=  .auser Flood5 $wildsite
  312. n310=  .timer 1 8 .ruser Flood5 $wildsite
  313. n311=}
  314. n312=Flood6:ON TEXT:*:?: {
  315. n313=  .auser Flood5 $wildsite
  316. n314=  .timer 1 8 .ruser Flood5 $wildsite
  317. n315=}
  318. n316=Flood7:ON TEXT:*:?: {
  319. n317=  .ignore -u60 $wildsite
  320. n318=  echo $rand(1,15) Flood Detected.  $nick will be ignored for 60 seconds. 14[4CHK14]
  321. n319=}
  322. n320=+1:ON NOTICE:*:?: {
  323. n321=  .auser Flood1 $wildsite
  324. n322=  .timer 1 8 .ruser Flood1 $wildsite
  325. n323=}
  326. n324=Flood1:ON NOTICE:*:?: {
  327. n325=  .auser Flood2 $wildsite
  328. n326=  .timer 1 8 .ruser Flood2 $wildsite
  329. n327=}
  330. n328=Flood2:ON NOTICE:*:?: {
  331. n329=  .auser Flood3 $wildsite
  332. n330=  .timer 1 8 .ruser Flood3 $wildsite
  333. n331=}
  334. n332=Flood3:ON NOTICE:*:?: {
  335. n333=  .auser Flood4 $wildsite
  336. n334=  .timer 1 8 .ruser Flood4 $wildsite
  337. n335=}
  338. n336=Flood4:ON NOTICE:*:?: {
  339. n337=  .auser Flood5 $wildsite
  340. n338=  .timer 1 8 .ruser Flood5 $wildsite
  341. n339=}
  342. n340=Flood5:ON NOTICE:*:?: {
  343. n341=  .auser Flood6 $wildsite
  344. n342=  .timer 1 8 .ruser Flood6 $wildsite
  345. n343=}
  346. n344=Flood6:ON NOTICE:*:?: {
  347. n345=  .auser Flood7 $wildsite
  348. n346=  .timer 1 8 .ruser Flood7 $wildsite
  349. n347=}
  350. n348=Flood7:ON NOTICE:*:?: {
  351. n349=  .ignore -u60 $wildsite
  352. n350=  echo $rand(1,15) Flood Detected.  $nick will be ignored for 60 seconds. 14[4CHK14]
  353. n351=}
  354. n352=+1:ON ACTION:*:?: {
  355. n353=  .auser Flood1 $wildsite
  356. n354=  .timer 1 8 .ruser Flood1 $wildsite
  357. n355=}
  358. n356=Flood1:ON ACTION:*:?: {
  359. n357=  .auser Flood2 $wildsite
  360. n358=  .timer 1 8 .ruser Flood2 $wildsite
  361. n359=}
  362. n360=Flood2:ON ACTION:*:?: {
  363. n361=  .auser Flood3 $wildsite
  364. n362=  .timer 1 8 .ruser Flood3 $wildsite
  365. n363=}
  366. n364=Flood3:ON ACTION:*:?: {
  367. n365=  .auser Flood4 $wildsite
  368. n366=  .timer 1 8 .ruser Flood4 $wildsite
  369. n367=}
  370. n368=Flood4:ON ACTION:*:?: {
  371. n369=  .auser Flood5 *!*@ $+ $site
  372. n370=  .timer 1 8 .ruser Flood5 $wildsite
  373. n371=}
  374. n372=Flood5:ON ACTION:*:?: {
  375. n373=  .auser Flood5 $wildsite
  376. n374=  .timer 1 8 .ruser Flood5 $wildsite
  377. n375=}
  378. n376=Flood6:ON ACTION:*:?: {
  379. n377=  .auser Flood5 $wildsite
  380. n378=  .timer 1 8 .ruser Flood5 $wildsite
  381. n379=}
  382. n380=Flod7:ON ACTION:*:?: {
  383. n381=  .ignore -u600$wildsite
  384. n382=  echo 1F14l15ood Detected.  $nick will be ignored for 16015 seconds.
  385. n383=}
  386. n384=#floodprotect end
  387. n385===================================
  388. n386=#altdns start
  389. n387=1:ON DNS: {
  390. n388=  If $raddress == $null { goto no }
  391. n389=  Else { goto yes }
  392. n390=  :yes
  393. n391=  echo 6 -a 14DNS Resolved
  394. n392=  echo 6 -a 15[14Nick15]:1 $nick
  395. n393=  echo 6 -a 15[14Address15]:1 $address
  396. n394=  echo 6 -a 15[14Resolved15]:1 $raddress
  397. n395=  echo 6 -a 14DNS Lookup Succesful  
  398. n396=  goto end
  399. n397=  :no
  400. n398=  echo 6 -a 14DNS 4FAILED
  401. n399=  echo 6 -a 11 $nick $+ 's 14Address1 ( $+ $address $+ )
  402. n400=  echo 6 -a áWas 4not resolved!
  403. n401=  echo 6 -a 14DNS 1INCONCLUSIVE
  404. n402=  :end
  405. n403=}
  406. n404=#altdns end
  407. n405===================================
  408. n406=#serveropstop start
  409. n407=1:ON SERVEROP:#: /mode # -oooo $parms
  410. n408=#serveropstop end
  411.